palindrome number in qbasic